10 PRINT"[147]";"JUST A MOMENT..."
20 POKE56,48:CLR:K=12288:PC=56334:CP=53272
40 POKEPC,PEEK(PC)AND254:POKE1,PEEK(1)AND251
50 FORJ=0TO4095:POKEK+J,PEEK(53248+J):NEXTJ
60 FORI=216TO255:READA%:POKEK+I,A%:NEXTI:FORI=280TO295:READA%:POKEK+I,A%:NEXTI
70 POKE1,PEEK(1)OR4:POKEPC,PEEK(PC)OR1
80 POKECP,21:BC=53280:BK=53281:POKEBC,2:POKEBK,1:PRINT"[147]"
90 PRINTSPC(90)"[144]  [167][205][165][165][167][167][205][206][165][207][165][207] [207][165]"
100 PRINT"            [167] [165][204][186][167]  [165][207][165][207] [207][165]"
110 PRINTTAB(21)"[163] [163]"
120 PRINT:PRINT"             [207][208] [165][167] [207] [207] [208][207]"
130 PRINT"             [204][186][187][204][186] [207] [208] [167][165]"
140 PRINTTAB(19)"[163] [163]"
150 PRINTSPC(131)"PRESS THE F1 KEY"
160 V=54272:FORSL=VTOV+24:POKESL,0:NEXT
170 POKEV+5,88:POKEV+4,33:POKEV+24,143:POKEV+6,195
180 READLF,HF,DR:IFLF=-1THEN200
190 POKEV,LF:POKEV+1,HF:FORT=1TODR:NEXTT:GOTO180
200 POKEV,0:POKEV+1,0:POKEV+24,0
210 GETA$:IFA$=""THEN210
220 IFA$=CHR$(133)THEN240
230 GOTO210
240 PRINT"[147]":POKEBC,7:POKEBK,15
250 PRINTSPC(211)"[144]YOU HAVE 5 [144]TURNS":PRINTSPC(51)"TO GUESS A NUMBER"
260 PRINTSPC(51)"[144]FROM 10 [144]TO 100":PRINTSPC(211)"PRESS THE F1 KEY"
270 GETA$:IFA$=""THEN270
280 IFA$=CHR$(133)THEN300
290 GOTO270
300 PRINT"[147]":POKEBC,6:POKEBK,1:TN=1:POKECP,(PEEK(CP)AND240)+12
310 PRINTSPC(92)"GUESS THE NUMBER"
320 PRINT:PRINTTAB(24)"[144][\":PRINT"":PRINTTAB(19)"[144]]"
330 PRINT"[144]]]]]]]]]]]]]]]]]]]]]]]]]]^^^^[144]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]";
340 FOR T= 1TO2
350 PRINT"[144]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]";
360 NEXT
370 FORN=0TO40:POKE1983+N,29:POKE56255+N,0:NEXTN
380 PRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]"
390 R=INT(RND(1)*90+10)
400 PRINT"[144]     TURN: ";"";TN:PRINT
410 PRINT"     ";
420 S$="":INPUTS$:S=VAL(S$):IFS<1ORS>100THENGOSUB690:PRINT"";:GOTO400
430 FOR U= 1 TO LEN(S$):UT=ASC(MID$(S$,U,1))
440 IF UT<48ORUT>57THEN U=LEN(S$):GOSUB690:NEXT:PRINT"";:GOTO400
450 NEXT
460 IF S>2 THEN490
470 PRINT"[144]  THAT'S TOO EASY":FOR T=0TO1000:NEXT:PRINT"[145]                  [145][145]"
480 GOTO410
490 IFS=RTHEN780
500 TN=TN+1:IFTN=6THEN530
510 IFS>RTHEN610
520 IFS<RTHEN630
530 POKEV+24,143:FORM=60TO30STEP-2:POKEV,INT(M/3):POKEV+1,M:FORT=1TO10:NEXTT
540 NEXTM:POKEV+24,0
550 P=14:GOSUB710:POKEX,36:POKECX,6:POKEX+40,30:POKECX+40,6
560 FORM=125TO15STEP-5:POKEV+24,M:FORT=1TO20:NEXTT:NEXTM:POKEV+24,0
570 PRINT"[147]":POKESC,216:PRINTSPC(210)"[144]SORRY, YOU  MISSED"
580 PRINTSPC(130)"THE NUMBER WAS ";R
590 PRINTSPC(49)"[144]BETTER LUCK NEXT TIME":FORU=1TO 1200:NEXTU
600 GOTO850
610 D=INT(S/R):D$="HIGH":IFD<=1THEN680
620 GOTO640
630 D=INT(R/S):D$="LOW":IFD<=1THEN680
640 PRINT" ";D;"[144] TIMES TOO ";"";D$
650 POKEV+24,143:FORM=50TO0STEP-1:POKEV,INT(M/2):POKEV+1,M:NEXTM
660 FORT=1TO600:NEXT:POKEV+24,0
670 PRINT"[145]                   ":PRINT"[145][145][145][145][145]":GOTO400
680 PRINT"    TOO ";"";D$:FORT=1TO400:NEXT:GOTO650
690 PRINT"     TRY 1-100  ":FORT=1TO800:NEXTT
700 PRINT"[145]              ":PRINT"[145][145][145][145][145]";:RETURN
710 X=1024+(5*40)+26:CX=X+54272:Z=1024+(5*40)+24:CZ=Z+54272
720 FORN=1TOP:POKEZ,32:POKEZ+1,32:POKEX,32:POKEX+40,32
730 POKEZ-1,27:POKECZ-1,0:POKEZ,28:POKECZ,0
740 POKEX+40,31:POKECX+40,2:POKEX+80,35:POKECX+80,0
750 Z=Z-1:CZ=CZ-1:X=X+40:CX=CX+40:NEXTN:RETURN
760 BL=53265:FORN=1TO6:POKEBL,PEEK(BL)AND239:FORT=1TO50:NEXTT
770 POKEBL,PEEK(BL)OR16:FORT=1TO40:NEXTT:NEXTN:RETURN
780 GOSUB760:P=5:GOSUB710:FORN=1TO7
790 POKEX,32:POKEX+40,32
800 POKEX+39,31:POKECX+39,2:POKEX+79,35:POKECX+79,0:X=X+39:CX=CX+39:NEXTN
810 POKEV+24,143:FORM=30TO60:POKEV,INT(M/2):POKEV+1,M:FORT=1TO10:NEXTT:NEXTM
820 POKEV+24,0:POKEV,0:POKEV+1,0
830 PRINT"[147]":POKEBC,2:POKEBK,1:PRINT:PRINT:PRINTSPC(130)"[144]**CONGRATULATIONS**"
840 PRINTSPC(173)"YOU GUESSED IT"
850 PRINTSPC(191);
860 FOR Q= 1TO 1000:NEXT:TN=1:GOTO300
870 DATA255,1,1,1,127,255,255,127,255,0,0,3,3,255,255,0
880 DATA255,255,255,255,255,255,255,255,170,170,255,255,255,255,255,255
890 DATA60,126,255,255,129,66,36,24,16,18,60
900 DATA88,40,36,66,0,17,130,68,37,6,148,93,126
910 DATA31,21,200,30,25,450,31,21,200,96,22,200,30,25,200,96,22,200,31,21,200
920 DATA30,25,500,-1,-1,-1